﻿<Serializable()> _
Public Class Ecliente

#Region "           Atributos                       "
    Private _correlativo As Int64
    Private _idCliente As Int32
    Private _EtpoDcmto As EtpoDcmto
    Private _nroDocumento As String
    Private _edad As Int32
    Private _razonSocial As String
    Private _nombre As String
    Private _apePaterno As String
    Private _apeMaterno As String
    Private _nombreCompleto As String
    Private _fchNacimineto As String
    Private _EestadoCivil As EestadoCivil
    Private _nroDependientes As Int32
    Private _sexo As Int32
    Private _Eestudio As Eestudio
    Private _nacionalidad As String
    Private _telefonoFijo As String
    Private _telefonoCelular As String
    Private _email As String
    Private _Eubigeo As Eubigeo
    Private _urbanizacion As String
    Private _direccion As String
    Private _separacionBienes As Int32
    Private _nroPartida As String
    Private _codPago As String

    Private _Eprofesion As Eprofesion
    Private _Eocupacion As Eocupacion
    Private _ruc As String
    Private _razonSocialLaboral As String
    Private _giro As String
    Private _EubigeoLaboral As Eubigeo
    Private _urbanizacionLaboral As String
    Private _direccionLaboral As String
    Private _telefonoLaboral As String
    Private _telefonoLaboral2 As String
    Private _puesto As String
    Private _antiguedadLaboral As Int32
    Private _ingresos As String

    Private _idTpoPersona As Int32
    Private _idRelacion As Int32

    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
    '---------------------------------------'
    Private _filtro As String 'sirve para filtrar el cliente
    Private _fchAccion As String  'es la última fecha de accion

    Private _porcentaje As String  'es el porcentaje de participacion
    Private _desEstCivil As String  'es la descripcion del estado civil
    Private _descTpoPersona As String  'es la descripcion del tipo de persona
    Private _Nombres As String  'es el nombre tanto para natural como juridica
    Private _OtroDocumento As String  'es otro documento ingresado
    Private _inmueble As String
    Private _codigoSeparacion As String
    Private _idEstCivil As Int32
#End Region

#Region "           Atributos Apoderado             "
    Private _telefonoParticular As String
    Private _celular1 As String
    Private _celular2 As String
#End Region

#Region "           Propiedades                     "
    Public Property correlativo() As Int64
        Get
            Return _correlativo
        End Get
        Set(ByVal value As Int64)
            _correlativo = value
        End Set
    End Property
    Public Property idCliente() As Int32
        Get
            Return _idCliente
        End Get
        Set(ByVal value As Int32)
            _idCliente = value
        End Set
    End Property
    Public Property EtpoDcmto() As EtpoDcmto
        Get
            Return _EtpoDcmto
        End Get
        Set(ByVal value As EtpoDcmto)
            _EtpoDcmto = value
        End Set
    End Property
    Public Property nroDocumento() As String
        Get
            Return _nroDocumento
        End Get
        Set(ByVal value As String)
            _nroDocumento = value
        End Set
    End Property
    Public Property edad() As Int32
        Get
            Return _edad
        End Get
        Set(ByVal value As Int32)
            _edad = value
        End Set
    End Property
    Public Property razonSocial() As String
        Get
            Return _razonSocial
        End Get
        Set(ByVal value As String)
            _razonSocial = value
        End Set
    End Property
    Public Property nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property
    Public Property apePaterno() As String
        Get
            Return _apePaterno
        End Get
        Set(ByVal value As String)
            _apePaterno = value
        End Set
    End Property
    Public Property apeMaterno() As String
        Get
            Return _apeMaterno
        End Get
        Set(ByVal value As String)
            _apeMaterno = value
        End Set
    End Property
    Public Property nombreCompleto() As String
        Get
            Return _nombreCompleto
        End Get
        Set(ByVal value As String)
            _nombreCompleto = value
        End Set
    End Property

    Public Property fchNacimineto() As String
        Get
            Return _fchNacimineto
        End Get
        Set(ByVal value As String)
            _fchNacimineto = value
        End Set
    End Property
    Public Property EestadoCivil() As EestadoCivil
        Get
            Return _EestadoCivil
        End Get
        Set(ByVal value As EestadoCivil)
            _EestadoCivil = value
        End Set
    End Property
    Public Property nroDependientes() As Int32
        Get
            Return _nroDependientes
        End Get
        Set(ByVal value As Int32)
            _nroDependientes = value
        End Set
    End Property
    Public Property sexo() As Int32
        Get
            Return _sexo
        End Get
        Set(ByVal value As Int32)
            _sexo = value
        End Set
    End Property
    Public Property Eestudio() As Eestudio
        Get
            Return _Eestudio
        End Get
        Set(ByVal value As Eestudio)
            _Eestudio = value
        End Set
    End Property
    Public Property nacionalidad() As String
        Get
            Return _nacionalidad
        End Get
        Set(ByVal value As String)
            _nacionalidad = value
        End Set
    End Property
    Public Property telefonoFijo() As String
        Get
            Return _telefonoFijo
        End Get
        Set(ByVal value As String)
            _telefonoFijo = value
        End Set
    End Property
    Public Property telefonoCelular() As String
        Get
            Return _telefonoCelular
        End Get
        Set(ByVal value As String)
            _telefonoCelular = value
        End Set
    End Property
    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
    Public Property Eubigeo() As Eubigeo
        Get
            Return _Eubigeo
        End Get
        Set(ByVal value As Eubigeo)
            _Eubigeo = value
        End Set
    End Property
    Public Property urbanizacion() As String
        Get
            Return _urbanizacion
        End Get
        Set(ByVal value As String)
            _urbanizacion = value
        End Set
    End Property
    Public Property direccion() As String
        Get
            Return _direccion
        End Get
        Set(ByVal value As String)
            _direccion = value
        End Set
    End Property
    Public Property separacionBienes() As Int32
        Get
            Return _separacionBienes
        End Get
        Set(ByVal value As Int32)
            _separacionBienes = value
        End Set
    End Property
    Public Property nroPartida() As String
        Get
            Return _nroPartida
        End Get
        Set(ByVal value As String)
            _nroPartida = value
        End Set
    End Property
    
    Public Property codPago() As String
        Get
            Return _codPago
        End Get
        Set(ByVal value As String)
            _codPago = value
        End Set
    End Property

    Public Property Eprofesion() As Eprofesion
        Get
            Return _Eprofesion
        End Get
        Set(ByVal value As Eprofesion)
            _Eprofesion = value
        End Set
    End Property
    Public Property Eocupacion() As Eocupacion
        Get
            Return _Eocupacion
        End Get
        Set(ByVal value As Eocupacion)
            _Eocupacion = value
        End Set
    End Property
    Public Property ruc() As String
        Get
            Return _ruc
        End Get
        Set(ByVal value As String)
            _ruc = value
        End Set
    End Property
    Public Property razonSocialLaboral() As String
        Get
            Return _razonSocialLaboral
        End Get
        Set(ByVal value As String)
            _razonSocialLaboral = value
        End Set
    End Property
    Public Property giro() As String
        Get
            Return _giro
        End Get
        Set(ByVal value As String)
            _giro = value
        End Set
    End Property
    Public Property EubigeoLaboral() As Eubigeo
        Get
            Return _EubigeoLaboral
        End Get
        Set(ByVal value As Eubigeo)
            _EubigeoLaboral = value
        End Set
    End Property
    Public Property urbanizacionLaboral() As String
        Get
            Return _urbanizacionLaboral
        End Get
        Set(ByVal value As String)
            _urbanizacionLaboral = value
        End Set
    End Property
    Public Property direccionLaboral() As String
        Get
            Return _direccionLaboral
        End Get
        Set(ByVal value As String)
            _direccionLaboral = value
        End Set
    End Property
    Public Property telefonoLaboral() As String
        Get
            Return _telefonoLaboral
        End Get
        Set(ByVal value As String)
            _telefonoLaboral = value
        End Set
    End Property
    Public Property telefonoLaboral2() As String
        Get
            Return _telefonoLaboral2
        End Get
        Set(ByVal value As String)
            _telefonoLaboral2 = value
        End Set
    End Property
    Public Property puesto() As String
        Get
            Return _puesto
        End Get
        Set(ByVal value As String)
            _puesto = value
        End Set
    End Property
    Public Property antiguedadLaboral() As Int32
        Get
            Return _antiguedadLaboral
        End Get
        Set(ByVal value As Int32)
            _antiguedadLaboral = value
        End Set
    End Property
    Public Property ingresos() As Int32
        Get
            Return _ingresos
        End Get
        Set(ByVal value As Int32)
            _ingresos = value
        End Set
    End Property

    Public Property idTpoPersona() As Int32
        Get
            Return _idTpoPersona
        End Get
        Set(ByVal value As Int32)
            _idTpoPersona = value
        End Set
    End Property
    Public Property idRelacion() As Int32
        Get
            Return _idRelacion
        End Get
        Set(ByVal value As Int32)
            _idRelacion = value
        End Set
    End Property

    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    '---------------------------------------'
    Public Property filtro() As String
        Get
            Return _filtro
        End Get
        Set(ByVal value As String)
            _filtro = value
        End Set
    End Property
    Public Property fchAccion() As String
        Get
            Return _fchAccion
        End Get
        Set(ByVal value As String)
            _fchAccion = value
        End Set
    End Property
    Public Property porcentaje() As String
        Get
            Return _porcentaje
        End Get
        Set(ByVal value As String)
            _porcentaje = value
        End Set
    End Property
    Public Property desEstCivil() As String
        Get
            Return _desEstCivil
        End Get
        Set(ByVal value As String)
            _desEstCivil = value
        End Set
    End Property
    Public Property descTpoPersona() As String
        Get
            Return _descTpoPersona
        End Get
        Set(ByVal value As String)
            _descTpoPersona = value
        End Set
    End Property
    Public Property OtroDocumento() As String
        Get
            Return _OtroDocumento
        End Get
        Set(ByVal value As String)
            _OtroDocumento = value
        End Set
    End Property
    Public Property inmueble() As String
        Get
            Return _inmueble
        End Get
        Set(ByVal value As String)
            _inmueble = value
        End Set
    End Property
    Public Property codigoSeparacion() As String
        Get
            Return _codigoSeparacion
        End Get
        Set(ByVal value As String)
            _codigoSeparacion = value
        End Set
    End Property
    Public Property idEstCivil() As Int32
        Get
            Return _idEstCivil
        End Get
        Set(ByVal value As Int32)
            _idEstCivil = value
        End Set
    End Property
#End Region

#Region "           Propiedades Apoderado           "
    Public Property telefonoParticular() As String
        Get
            Return _telefonoParticular
        End Get
        Set(ByVal value As String)
            _telefonoParticular = value
        End Set
    End Property
    Public Property celular1() As String
        Get
            Return _celular1
        End Get
        Set(ByVal value As String)
            _celular1 = value
        End Set
    End Property
    Public Property celular2() As String
        Get
            Return _celular2
        End Get
        Set(ByVal value As String)
            _celular2 = value
        End Set
    End Property
    Public Property Nombres() As String
        Get
            Return _Nombres
        End Get
        Set(ByVal value As String)
            _Nombres = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property NombresCompletos() As String
        Get
            Return nombre & " " & apePaterno & " " & apeMaterno
        End Get
    End Property
    Public ReadOnly Property Telefonos() As String
        Get
            Return telefonoFijo & " - " & telefonoCelular
        End Get
    End Property
    Public ReadOnly Property idClienteRelacion() As String
        Get
            Return idCliente & "," & idRelacion
        End Get
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub

    Public Sub New(ByVal idDni As String)
        'Me.idDni = idDni
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
    End Sub
    Public Sub New(ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String)
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal idRelacionado As Int32, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, _
                   ByVal nroDocumento As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal nacionalidad As String, ByVal email As String, ByVal telefono As String, ByVal celular1 As String, _
                   ByVal celular2 As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal nroPartida As String, _
                   ByVal estado As String, ByVal bCliente As Int16, ByVal bConyugue As Int16, ByVal bCoopropietario As Int16, _
                   ByVal idUsuario As Integer, ByVal OtroDocumento As String)
        Me.idCliente = idCliente
        'Me.idRelacionado = idRelacionado
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.nacionalidad = nacionalidad
        Me.email = email
        'Me.telefono = telefono
        Me.celular1 = celular1
        Me.celular2 = celular2
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        'Me.idOcupacion = idOcupacion
        Me.nroPartida = nroPartida
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        'Me.bCliente = bCliente
        'Me.bConyugue = bConyugue
        'Me.bCoopropietario = bCoopropietario
        Me.idUsuario = idUsuario
        Me.OtroDocumento = OtroDocumento
    End Sub
    '-------    CONSTRUCTOR  DATOS DEL CLIENTE  PROFORMA    --------'
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal sexo As Int32, ByVal idEstCivil As Int32, _
                   ByVal desEstCivil As String, ByVal idUbigeo As String, ByVal departamento As String, ByVal provincia As String, _
                   ByVal distrito As String, ByVal telefonoFijo As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, _
                   ByVal telefonoLaboral As String, ByVal nroDocumento As String, ByVal edad As Int32, ByVal email As String, _
                   ByVal direccion As String, ByVal telefonoCelular As String, ByVal centroLaboral As String, ByVal comentarios As String, _
                   ByVal estado As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.sexo = sexo
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.telefonoFijo = telefonoFijo
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.telefonoLaboral = telefonoLaboral
        Me.nroDocumento = nroDocumento
        Me.edad = edad
        Me.email = email
        Me.direccion = direccion
        Me.telefonoCelular = telefonoCelular
        'Me.centroLaboral = centroLaboral
        'Me.comentarios = comentarios
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal sexo As Int32, ByVal idEstCivil As Int32, _
                   ByVal desEstCivil As String, ByVal idUbigeo As String, ByVal departamento As String, ByVal provincia As String, _
                   ByVal distrito As String, ByVal telefonoFijo As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, _
                   ByVal telefonoLaboral As String, ByVal nroDocumento As String, ByVal edad As Int32, ByVal email As String, _
                   ByVal direccion As String, ByVal telefonoCelular As String, ByVal centroLaboral As String, ByVal comentarios As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.sexo = sexo
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.telefonoFijo = telefonoFijo
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.telefonoLaboral = telefonoLaboral
        Me.nroDocumento = nroDocumento
        Me.edad = edad
        Me.email = email
        Me.direccion = direccion
        Me.telefonoCelular = telefonoCelular
        'Me.centroLaboral = centroLaboral
        'Me.comentarios = comentarios
        'Me.estado = estado
        'Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal idRelacion As Int32, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, _
                   ByVal sexo As Int32, ByVal edad As Int32, ByVal idEstCivil As Int32, _
                   ByVal desEstCivil As String, ByVal nacionalidad As String, ByVal email As String, _
                   ByVal direccion As String, _
                   ByVal idUbigeo As String, ByVal departamento As String, ByVal provincia As String, _
                   ByVal distrito As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal telefonoDos As String, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal nroPartida As String, _
                   ByVal telefonoLaboral As String, _
                    ByVal centroLaboral As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.sexo = sexo
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.telefonoFijo = telefonoFijo
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.telefonoLaboral = telefonoLaboral
        Me.nroDocumento = nroDocumento
        Me.edad = edad
        Me.email = email
        Me.direccion = direccion
        Me.telefonoCelular = telefonoCelular
        'Me.centroLaboral = centroLaboral
        'Me.comentarios = comentarios
        'Me.estado = estado
        'Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub

    '-------    CONSTRUCTOR  ATENCION AL CLIENTE (COBRANZA)    ----------------'
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal direccion As String, ByVal email As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal idUbigeo As String, _
                   ByVal departamento As String, ByVal provincia As String, ByVal distrito As String, ByVal razonSocialLaboral As String, _
                   ByVal telefonoLaboral As String, ByVal puesto As String, ByVal codPago As String, ByVal inmueble As String, ByVal codigoSeparacion As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.direccion = direccion
        Me.email = email

        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.razonSocialLaboral = razonSocialLaboral
        Me.telefonoLaboral = telefonoLaboral
        Me.puesto = puesto
        Me.codPago = codPago
        Me.inmueble = inmueble
        Me.codigoSeparacion = codigoSeparacion
    End Sub
    '-------    CONSTRUCTOR  ATENCION AL CLIENTE   ----------------'
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal direccion As String, ByVal email As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal idUbigeo As String, _
                   ByVal departamento As String, ByVal provincia As String, ByVal distrito As String, ByVal razonSocialLaboral As String, _
                   ByVal telefonoLaboral As String, ByVal puesto As String, ByVal codPago As String, ByVal fchAccion As String, ByVal inmueble As String, ByVal codigoSeparacion As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.direccion = direccion
        Me.email = email

        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.razonSocialLaboral = razonSocialLaboral
        Me.telefonoLaboral = telefonoLaboral
        Me.puesto = puesto
        Me.codPago = codPago
        If fchAccion.Trim.Equals("") Then
            Me.fchAccion = ""
        Else
            Me.fchAccion = Convert.ToDateTime(fchAccion).ToString("dd/MM/yyyy")
        End If
        Me.inmueble = inmueble
        Me.codigoSeparacion = codigoSeparacion
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal sexo As Int32, ByVal edad As Int32, _
                   ByVal idEstCivil As Int32, ByVal desEstCivil As String, ByVal nacionalidad As String, ByVal email As String, ByVal direccion As String, _
                   ByVal idUbigeo As String, ByVal departamento As String, ByVal provincia As String, _
                   ByVal distrito As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal telefonoCelular2 As String, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal nroPartida As String, _
                   ByVal telefonoLaboral As String, ByVal razonSocialLaboral As String, ByVal puesto As String, ByVal telefonoLaboral2 As String, _
                   ByVal estado As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.sexo = sexo
        Me.edad = edad
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.telefonoFijo = telefonoFijo
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.telefonoLaboral = telefonoLaboral
        Me.email = email
        Me.direccion = direccion
        Me.telefonoCelular = telefonoCelular
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub

    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
                   ByVal idApoderado As Int32, _
                   ByVal nombre As String, ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal nacionalidad As String, _
                   ByVal email As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal telefonoCelular2 As String, _
                   ByVal idOcupacion As Int32, ByVal nroPartida As String)
        'Me.idProyecto = idProyecto
        'Me.idEtapa = idEtapa
        'Me.idSeparacionVenta = idSeparacionVenta
        '_EseparacionVenta = New EseparacionVenta
        '_EseparacionVenta.idProyecto = idProyecto
        '_EseparacionVenta.idEtapa = idEtapa
        '_EseparacionVenta.idSeparacionVenta = idSeparacionVenta
        Me.idCliente = idCliente
        Me.nombre = nombre
        _EtpoDcmto = New EtpoDcmto
        _EtpoDcmto.idTpoDcmto = idTpoDcmto
        Me.nroDocumento = nroDocumento
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.nacionalidad = nacionalidad
        Me.email = email
        Me.telefonoFijo = telefonoFijo
        Me.celular1 = telefonoCelular
        Me.celular2 = telefonoCelular2
        'Me.idOcupacion = idOcupacion
        Me.nroPartida = nroPartida
    End Sub

    '-------    CONSTRUCTOR  MANTENEDOR DEL CLIENTE    -------------'
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal email As String, ByVal estado As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.email = email
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, _
                   ByVal razonSocial As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal fchNacimineto As String, ByVal idEstCivil As Int32, ByVal desEstCivil As String, ByVal nroDependientes As Int32, _
                   ByVal sexo As Int32, ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, _
                   ByVal direccion As String, ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, _
                   ByVal idProfesion As Int32, ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, _
                   ByVal razonSocialLaboral As String, ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, _
                   ByVal direccionLaboral As String, ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, _
                   ByVal antiguedadLaboral As Int32, ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, _
                   ByVal idRelacion As Int32, ByVal OtroDocumento As String)
        Me.idCliente = idCliente
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        'Me.EtpoDcmto.idTpoDcmto = idTpoDcmto
        Me.nroDocumento = nroDocumento
        Me.edad = edad
        Me.razonSocial = razonSocial
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.fchNacimineto = fchNacimineto
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.nroDependientes = nroDependientes
        Me.sexo = sexo
        Me.Eestudio = New Eestudio(idEstudio, "")
        'Me.Eestudio.idEstudio = idEstudio
        Me.nacionalidad = nacionalidad
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.email = email
        Me.Eubigeo = New Eubigeo(idUbigeo, "", "", "")
        Me.urbanizacion = urbanizacion
        Me.direccion = direccion
        Me.separacionBienes = separacionBienes
        Me.nroPartida = nroPartida
        Me.codPago = codPago
        Me.Eprofesion = New Eprofesion(idProfesion, "")
        'Me.Eprofesion.idProfesion = idProfesion
        Me.Eocupacion = New Eocupacion(idOcupacion, "")
        'Me.Eocupacion.idOcupacion = idOcupacion
        Me.ruc = ruc
        Me.razonSocialLaboral = razonSocialLaboral
        Me.giro = giro
        Me.EubigeoLaboral = New Eubigeo(idUbigeoLaboral, "", "", "")
        Me.urbanizacionLaboral = urbanizacionLaboral
        Me.direccionLaboral = direccionLaboral
        Me.telefonoLaboral = telefonoUno
        Me.telefonoLaboral2 = telefonoDos
        Me.puesto = puesto
        Me.antiguedadLaboral = antiguedadLaboral
        Me.ingresos = ingresos
        Me.idTpoPersona = idTpoPersona
        Me.idRelacion = idRelacion
        Me.OtroDocumento = OtroDocumento
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, _
                   ByVal razonSocial As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal fchNacimineto As String, ByVal idEstCivil As Int32, ByVal desEstCivil As String, ByVal nroDependientes As Int32, _
                   ByVal sexo As Int32, ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, _
                   ByVal direccion As String, ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, _
                   ByVal idProfesion As Int32, ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, _
                   ByVal razonSocialLaboral As String, ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, _
                   ByVal direccionLaboral As String, ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, _
                   ByVal antiguedadLaboral As Int32, ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, _
                   ByVal idRelacion As Int32)
        Me.idCliente = idCliente
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        'Me.EtpoDcmto.idTpoDcmto = idTpoDcmto
        Me.nroDocumento = nroDocumento
        Me.edad = edad
        Me.razonSocial = razonSocial
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.fchNacimineto = fchNacimineto
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.nroDependientes = nroDependientes
        Me.sexo = sexo
        Me.Eestudio = New Eestudio(idEstudio, "")
        'Me.Eestudio.idEstudio = idEstudio
        Me.nacionalidad = nacionalidad
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.email = email
        Me.Eubigeo = New Eubigeo(idUbigeo, "", "", "")
        Me.urbanizacion = urbanizacion
        Me.direccion = direccion
        Me.separacionBienes = separacionBienes
        Me.nroPartida = nroPartida
        Me.codPago = codPago
        Me.Eprofesion = New Eprofesion(idProfesion, "")
        'Me.Eprofesion.idProfesion = idProfesion
        Me.Eocupacion = New Eocupacion(idOcupacion, "")
        'Me.Eocupacion.idOcupacion = idOcupacion
        Me.ruc = ruc
        Me.razonSocialLaboral = razonSocialLaboral
        Me.giro = giro
        Me.EubigeoLaboral = New Eubigeo(idUbigeoLaboral, "", "", "")
        Me.urbanizacionLaboral = urbanizacionLaboral
        Me.direccionLaboral = direccionLaboral
        Me.telefonoLaboral = telefonoUno
        Me.telefonoLaboral2 = telefonoDos
        Me.puesto = puesto
        Me.antiguedadLaboral = antiguedadLaboral
        Me.ingresos = ingresos
        Me.idTpoPersona = idTpoPersona
        Me.idRelacion = idRelacion
    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, _
                   ByVal edad As Int32, ByVal razonSocial As String, ByVal nombre As String, ByVal apePaterno As String, _
                   ByVal apeMaterno As String, ByVal fchNacimineto As String, ByVal idEstCivil As Int32, ByVal desEstCivil As String, _
                   ByVal nroDependientes As Int32, ByVal sexo As Int32, ByVal idEstudio As Int32, ByVal descEstudio As String, _
                   ByVal nacionalidad As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal email As String, _
                   ByVal idUbigeo As String, ByVal departamento As String, ByVal provincia As String, ByVal distrito As String, _
                   ByVal urbanizacion As String, ByVal direccion As String, ByVal nroPartida As String, ByVal idProfesion As Int32, _
                   ByVal desProfesion As String, ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, _
                   ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, ByVal antiguedadLaboral As Int32, _
                   ByVal ingresos As Decimal, ByVal idTpoPersona As Int32, ByVal idRelacion As Int32, ByVal estado As String, ByVal idUsuario As Int32, _
                   ByVal descTpoPersona As String, ByVal Nombres As String, ByVal OtroDocumento As String, ByVal razonSocialLaboral As String, ByVal inmueble As String)
        Me.idCliente = idCliente
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.OtroDocumento = OtroDocumento
        Me.edad = edad
        Me.razonSocial = razonSocial
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.fchNacimineto = fchNacimineto
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.nroDependientes = nroDependientes
        Me.sexo = sexo
        Me.Eestudio = New Eestudio(idEstudio, descEstudio)
        Me.nacionalidad = nacionalidad
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.email = email
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.urbanizacion = urbanizacion
        Me.direccion = direccion
        Me.nroPartida = nroPartida
        Me.Eprofesion = New Eprofesion(idProfesion, desProfesion)
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.ruc = ruc
        Me.giro = giro
        Me.EubigeoLaboral = New Eubigeo
        Me.EubigeoLaboral.idUbigeo = idUbigeoLaboral
        Me.urbanizacionLaboral = urbanizacionLaboral
        Me.direccionLaboral = direccionLaboral
        Me.telefonoLaboral = telefonoUno
        Me.telefonoLaboral2 = telefonoDos
        Me.puesto = puesto
        Me.antiguedadLaboral = antiguedadLaboral
        Me.ingresos = ingresos
        Me.idTpoPersona = idTpoPersona
        Me.idRelacion = idRelacion
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.idUsuario = idUsuario
        Me.descTpoPersona = descTpoPersona
        Me.Nombres = Nombres
        Me.razonSocialLaboral = razonSocialLaboral
        Me.inmueble = inmueble
    End Sub

    '-------    MENU SEGUIMIENTO    --------------------------------'
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal telefonoFijo As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nroDocumento = nroDocumento
        Me.telefonoFijo = telefonoFijo
    End Sub

    '-------     CLIENTES CON ADICIONALES   --------'
    Public Sub New(ByVal correlativo As Int64, ByVal idCliente As Int32, ByVal idTpoDcmto As Int32, _
                   ByVal descTpoDcmto As String, ByVal nroDocumento As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal telefonoFijo As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal departamento As String, _
                   ByVal provincia As String, ByVal distrito As String, ByVal direccion As String, _
                   ByVal razonSocial As String, ByVal telefonoCelular As String, ByVal puesto As String)
        Me.correlativo = correlativo
        Me.idCliente = idCliente
        Me.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.nombre = nombre
        Me.nroDocumento = nroDocumento
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.telefonoFijo = telefonoFijo
        Me.email = email
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.direccion = direccion
        Me.razonSocial = razonSocial
        Me.telefonoCelular = telefonoCelular
        Me.puesto = puesto
    End Sub

    '-------     FILTRAR SEPARACION / VENTA   --------'
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal sexo As Int32, ByVal edad As Int32, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal email As String, ByVal idUbigeo As Int32, _
                   ByVal direccion As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal idOcupacion As Int32, _
                   ByVal descOcupacion As String, ByVal direccionLaboral As String, ByVal telefonoLaboral As String)
        Me.idCliente = idCliente
        Me.EtpoDcmto = New EtpoDcmto()
        Me.EtpoDcmto.idTpoDcmto = idTpoDcmto
        Me.nroDocumento = nroDocumento
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.sexo = sexo
        Me.edad = edad
        Me.EestadoCivil = New EestadoCivil(idEstCivil, descEstCivil)
        Me.email = email
        Me.Eubigeo = New Eubigeo(idUbigeo)
        Me.direccion = direccion
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.Eocupacion = New Eocupacion(idOcupacion, descOcupacion)
        Me.direccionLaboral = direccionLaboral
        Me.telefonoLaboral = telefonoLaboral
    End Sub
    '-------    CONSTRUCTOR  MANTENEDOR DEL COOPROPIETARIO    -------------'
    Public Sub New(ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idTpoDocumento As Int32, ByVal nroDocumento As String, ByVal idEstCivil As Int32, ByVal descEstCivil As String, _
                   ByVal idUbigeo As String, ByVal departamento As String, ByVal provincia As String, _
                   ByVal distrito As String, ByVal porcentaje As String)
        Me.idCliente = idCliente
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.nombreCompleto = nombre & " " & apePaterno & " " & apeMaterno
        Me.idTpoPersona = idTpoDocumento
        Me.nroDocumento = nroDocumento
        Me.EestadoCivil = New EestadoCivil(idEstCivil, descEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo, departamento, provincia, distrito)
        Me.porcentaje = porcentaje

    End Sub
    '-------    CONSTRUCTOR  SELECCION DEL COOPROPIETARIO    -------------'
    Public Sub New(ByVal idCliente As Int32, ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                  ByVal idEstCivil As Int32, ByVal dscEstCivil As String, ByVal idUbigeo As String, ByVal porcentaje As Decimal)
        Me.idCliente = idCliente
        Me.idTpoPersona = idTpoDcmto
        Me.nroDocumento = nroDocumento
        Me.nombre = nombre
        Me.apePaterno = apePaterno
        Me.apeMaterno = apeMaterno
        Me.nombreCompleto = nombre & " " & apePaterno & " " & apeMaterno
        Me.EestadoCivil = New EestadoCivil(idEstCivil, desEstCivil)
        Me.Eubigeo = New Eubigeo(idUbigeo)
        Me.porcentaje = porcentaje

    End Sub
    '---------------------------------------------------------------'
#End Region

End Class